Fortran exit 控制

do while (.true.)
    if (logical_expression) exit
    ...
end do